


1170 
1180 
1199 
1200 
1216 


PRINT "sans conserver les valeurs" 

PRINT “soit n le nombre d’elements" 

PRINT “soit X les differentes valeurs du parametre" 

PRINT 

INPUT "nombre d’elements"3N!:PRINT :PRINT "quelles sont les different 


es valeurs" 


1220 
12306 
1240 
1250 
1240 
1270 
1286 
1290 
1300 
1310 
1329 
1330 
1346 
1550 


1346 
1370 
1380 
1390 
1400 
1410 
1426 
1430 
1440 


PRINT "appuyez sur RETURN apres chaque donnee" 
M!=0.0:V!=0.0:E!=0.0:5!=0.0 

FOR I!=1.@ TD N':INPUT X! 
S!=S!+X!:V!=V!+X!#X!:NEXT 

M!=S!/N: 

PRINT :PRINT “pour la ponderation n presser N" 
PRINT "pour la ponderation n-1 presser I" 
G'=GETC:IF G!=0.0 THEN 1299 

IF 5!=А5С ("№") THEN 1330 

IF G'=ASC("I") THEN 1349 

IF G!S2ASC(PN") AND B'«»ASC("I") THEN 1276 
VIzUT' /N!-M'xM':GÜTO 1350 
Viz(V!-5!x65! /N!) / (N!Í-1.0) 
E'-SBR(ABS(/!)) : PRINT "moyenne "SM'!:PRINT SPC(4):PRINT "variance "3V! 


PRINT "ecart-type "sE! 

RETURN 

H-9:PRINT СНКФ (12) :РКІМТ “resolution des equations algebriques" 

PRINT "du 1er et du 2eme degre" 

PRINT :PRINT "formes canoniques:" 

PRINT TAB(S):PRINT "B#X+C=@" 

PRINT TAB(S):PRINT "A*X^24B*X4U-0" : PRINT 

PRINT "si ler degre A=9" 

INPUT "VALEUR DE A "SA!:PRINT SPC(4): INPUT "DE B "3B!:PRINT SPC(4):IN 


PUT "DE C "5C! 


1456 
1469 
1470 
1489 
1470 
1560 
1510 
1529 
1530 
1540 
1559 
1560 
1570 
1580 


IF A'=0.0 THEN 1550 

D!=B!#B!-4.04A!¥#C!:IF D!<0.0 THEN 1510 
X1!=(-B!+S0R(D!))/2.0/A!:X2!=(-B!-SQR(D!))}/2.0/A! 

PRINT :PRINT "deux racines reelles":PRINT "X1z"5X1!; SPC (4) 8 "X2-"5 X2! 
IF X1!-X2! THEN PRINT "racine double" 

RETURN 

D'-ABS(D!):PRINT :PRINT "deux racines complexes conjuguees" 
XA!--B!/2.0/A'! : XB' ZGUR(D!) /2. 0/0! 

PRINT "X1="5 XA! "+"; XB! 5 "i" 5 SPC(4)5 "X22" 5 XA! 5 " "5 plein 
RETURN 

IF B!=@.@ THEN 1570 

PRINT :PRINT "premier degre X=  ";-C'/B':RETURN 

IF C!=0.0 THEN PRINT :PRINT "equation indeterminee":RETURN 
PRINT :PRINT "IMPOSSIBLE":RETURN 


Guus Knoopshas problems with one of his BASIC-roms, 
please contact him on 04951/31284 (The Netherlands) 


if you have spare roms or another solution. 
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REM OCR ER A ICI TAREE RARE TEAR AO OO OO ARATE 


REM x 1 
REM t OMLAAGROETSJEN OF EEN KWART CIRKEL 4 
REM t x 


REM NON RE AO EE OO ON 
PRINT F,DT, INT (X#10.040.5) 710.0, INT(Y110. 0*0. 52 /10. 0, INT (10. 0%ACOS (COSA) 21 


80.0/PI*0.5) /10.0 


170 
180 


270 
280 


300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


REM BRON/AUTEUR Thijs Berkx (n.a.v. FARADAY jrg.50 nr.6) 
REM DATUM mei 1982 


REM OPSLAG BAND nr — CODE МКО1 

REM 

REM PERSE EE ESET ISERE OUBOOSESEEFESEEESSES EAS ESSEARYS 
REM 


MODE O:PRINT CHR$ (12) 

MODE SA:COLORG O 5 3 15 

DRAW 75,5 275,5 3: DRAW 75,5 75,205 5 

FOR NZ=15 TO 205 STEP 10 

DRAW 72,NZ 75,NZ S: DRAW 71+NZ,2 714NZ,5 5 

NEXT NZ 

REM 

REM tt3Xi3$ttftXxikINVOER v. PARAMETERS&S XS AAAA AARAA 
REM 

INPUT “Wri jvingskoefficient f "3F:PRINT 

INPUT "Ti jdsinterval dT tussen stippen";DT:PRINT 
REM 

REM SSS E009 048088 ВЕБІМУООКНААВКПЕМА З З КЕ SES SESE 1 fX 3 33x 
REM 

REM Straal R=200 Aschermeenhedeniü 

REM Valversnelling: q = 10 Am/(s%s)i 

REM Start in (0,200) met beginsnelheid 0 m/s 
RZ=200.0:X=0.0:Y=RZ:VX=0.0:VY=0.0 

REM 

REM f£111F1111111111BEREKENINGI1111111111111111113111315 
REM 

CDBSA5-1.0-X/RZ: SINA-1.0-Y/RZ: V2-VX1VX*VY tVY 

X1=X 

REM 

REM S¥SSEETERAAARTTEX-RICHTING EAS ESET ESTEE EAR E TEESE 
REM 

AX- (10. OSSINA+V2/RZ) X (COSA-F СІМА) 

VX=VXFAKEDT 

X=X+VX*DT ` 

IF X<Xi THEN 540:REM Afbreekkonditie 

REM 

REM f1141111131111111Y-RICHTINGIF11111111F11111111115 
REM 

AY--10. 0* (10. OXSINA+V2/RZ) $ (SINA+FECOSA) 
VY=VY+AYSDT 

Y=Y+VY EDT 

REM 

REM KEEKKKEEESKKKKEEPLAATS STIPKARKAKKKERKEEK SEE 
REM 

DOT 7S+INT (X+0.5) ,S+INT(¥+0.5) 3 

GOTO 340:REM Volgend ti jdsinterval 


REM 

REM tfX5*3Xttt5UITVDER у. GEGEVENS v.EINDPUNT$1111F11111 
REM 

PRINT CHR$ (12) 

PRINT " f "," dT "," Xeind "," Yeind "," ALFAeind " 


PRINT F,DT, INT(Xt10.0-*0. 5) /10. О, INT(Y310. 000.5) 710.0, INT(10. OXACOS (COSA) 11 


80.0/P14+0.5)/10.0 


600 


END 
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my DAI computer several years aga, 
preogramma, I found 
moving a motis 
follows mi por Ch 
дайт, and 






















CF 
ftv 





"МР" 


Р РОР 
„Т MEER D 













mode used 
beginadr ; 
HL'" and “TRL +1” 












with 
$ program), 
KIM IMT 

if REM Before calling shape-routine : 

25 REM poke RES,line-interval of actual mode 

3@ REM poke TBL,LS5B (least significant byte) of the adress 

Я that points to the beginning of the data-table. 
E 48 REM poke TBL*1,MSB (most significant byte) of the adress 

[ Së REM callm USR,A where A = destination adress on the screen 
198 CLEAR 2085. 
118 MLP$=""sFOR x=8 TO #28:READ A: MLPS=MLP&+CHRS (A) : NEXT 
Ë 28 DATA #05, #23, #23, #56, 4825, HSE, #21, E00, 409, HIE, #B7 , HCA, HOE 
E 138 DATA #60, #47, #23, HDS, #7E, #12, HIE, #23, #95, #02, HIS, HIS, HDI 

: 148 DATA #E5, #21, #20, #00, HEB, CD, £10, HDE, HEB, HEL, #02, 800, HOC 
156 DATA #C1,#C9 

16@ V=VARPTR(MLPS) : USR=PEEK (V) +PEER (V4+1) 4256+1 

178 RES=USR+#1iC: TRL=USR+#7 : AR=USR+#27: AL=USR+#11: AP=USR+#9 

188 PORE USR+HC,AR IAND #FF:POKE USR+#D,AR SHR 8 

198 POKE USR+#17,AL ТАМО #FF:POKE USR+#198,AL SHR 8 
280 POKE USR+#25,AP IAND #FF:POKE USR+#245,AP SHR 8 


you airmceady know ¿(I hope), on graphic screen 
6) a horizontal iine is divided in groups of 
bits, The combination anc colour of these pointe 
bytes per eight points. The method of storage 
mme i particle of PF. Drui iff in Dainamic 


it here very briefly : 

























in the modes with an uneven number (MODE Leke, the 
colon modes? the first fend byte contains binary 
imation of eight points on the screen that are either in 
ground. (bites or background item colour, while the 
J (seven) byte selects which Tore- and backe ground colours 















UNEVEN DYTE EVEN BYTE 


3.6 $ 4 |3 f£ A 9 


——Á — 
BACKGROUND = 


| 
осе 
| 
BIT ъл : PoINT 16 SET IN FoREGROUNO - | FORE GROUND~ 
сого 


Соо VR 


ЪТ =Ø : POINT 19 GET IN | VEN M &TwuEsN #-45 (а шт) 
BACK GROUN b CoL оок. GI BY NUMBER. G ( 


BITNUMBER — 








in the modes with an even number (MODE 2-4-6, the 
Four-coiour modes), the combination of the corresponding bits of 
two subsequent Les gives the number of the colour of that bit 
m 


Gn the screen (colours HE through 233. 


GE) IN THIS EXAMPLE THE FOREGROINDCOLOUR = GoLouR 44 (BINARY: поо 
AND THE BACK GROWN осо оок = COLOUR 9 CBMARY: loot 
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= D “<etooK 23 





KODER соі сеу 
12, page 248? 


Аар 


or 


The format of the 
follows 3 
with the number af 


the data itself. 


poutine is as 
Bue e Start 
followed by 


So we get i 





мох мт м xn 
Пах Мар Кована 









data, 


EVEN BYTE 


Гого 


(Dainamic 14, 
other 


needed for this 


databytes 


THE CORRESPONDING BITS GIVE 
Binary A NUMBER BETWEEN @-3 


ON THE SCREEN 


3 6 mE 3 1 4 o 
[ERES] | | 
Ls cuui eer 
COLOUR „ 23 22 24 20 

NaF. 


page 27-25) and 


articles concerning 


shape 


an the current line, 


The routine places the "n" bytes of data 


on the screen from left ta right, jumps 
down one line and returns just underneath 
the first byte of the previous line. This 
is done until nef £ then the routine re- 
turns to the BASIC program. 
Notice that "бё" (for САМ USR,&? indicates the upper-left 
corner of the rectangle where the shape is placed in. The 
cali culation of A is fairly simple : with X and Y as the 
of the upper-left corner of the shape and R as the 
à of the control-bytes of the actual mode, 
fee EE (YMAX- “YER OX SO) kI (NOT X/4:) 
and À MOD 8 gives the number of bits you have to rotate the 


о at 


piace 


Sh apse an 


Now an » let's search the 








we want 3 he ad in colour i, the rest of 
the background colour must be Ø and we 
colour mode), 

hhumber af data 


Shape 


data 


want 


the exact bit position, 


of the 
росу 
to use 


littie man; 
in colour 14, 
mode 3 (ió- 


his 


Eit-combination 






















64 
[РЕ | 2 
ЕЕ TT 2 
EN NEN 2 
Abd 2 
ra 
TE 2 
ТЕЕ 0 2 
LE CET 2 
E COTE 2 


THE SuM ог THE VALUE OF THE BITS 
IN FOREGROUNOCOL OUR. 

GIVES THE BINARY CONTENTS OF THE 
UNEVEN GYTE. 
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és 
55 
56 
іб 


em 
xlv 


іб 
i6 
48 
58 
138 


£u FLAG: 


Fore/background colour 


іё 
15 


i6 FOREGROUND- 


mu COLOUR = 44 BALK ERGOND- 
v 
8 x 24 a424 





N N 


£ / 


274 
224 


=: SEDE Sa 
Dee * 8 42 4 


aan 


Mete IN ONE 
BITE 








I hope this routine can help you to achieve a 
higher animation-speed for your BASIC-program, but don” t think 
you can make a FACMAN in BASIC with this routine (BASIC is stili 
too slow). 

An example of fast BASIC-animation using the SHAPE-program (add 
this to the program listed above) 

999 DIM S$(1),5(1,1):COLORG 9 5 19 15:MODES:POKE RES,96 

919 FOR Ү=й то 1: FOR X=1 TO 76:READ 0:5% (Y) =S$ (Y) +CHRS (0): NEXT 
520 V=VARPTRISE(Y) ) 2 VI=PEEK (У) +PEEK (V1) #25641 

S36 SCY,@)=Vi IAND #FF:S(Y,1)=Vi SHR 8: NEXT 

346 РОКЕ TBL,S(80,0):POKE TBL+1,S(9,1):REM shape 1 

999 FOR X-HSBFED-9028 TO #BFED-9@4@ STEP (—-10):CALLM USR, X: NEXT 
560 WAIT TIME 18 

378 FOKE TBL,S(1,@):POKE TBL+1,S(1,1):REM shape 2 

388 FOR X-SBFED-9020 TO #BFED-9@46@ STEP (-19):CALLM USR, X:NEXT 
978 WAIT TIME 9:GOTO 548 

69% DATA 4,353,224, 224, 224, 4, 15, 224, 248, 224,4, 224, 252,22 

619 DATA 4, 15, 224, 158, 224,4, 7, 224,158, 224, J з 159, 224 

628 DATA 4,1,224,255.224,4, 5, 8, 255,224,4,1, 224,255, 224 

629 DATA 4,3,224, 255, 224,4,7,224,254,224,4,15,224,254, 2274 

648 DATA 4,31,224,252, 224, 4,15, 224, 248, 224, 4,3, 224, 240, 224,6 
696 REM daba for Second shape : 

760 DATA 4,3, 224, 224,224, 4, 15, 224, 248, 224,4, 31, 224,252,224 

718 DATA 4,63, 224, 158, 224, 4, 63, 224, 158, 224,4, 127, 224, 159, 224 
726 DATA 4,127,224, 255,224,4,9,9, 255, 274,4,127 , 221, 255, 224 

738 DATA 4, 127,224,255, 224, 4,63, 224, 254, 224, 4,63, 224, 254, 224 
746 DATA 4,351,224, 1225, 4, 15, 224,248,224, 4,3, 224,240, 224, g 





For further information write : Dirk De Boeck 
Hindedreef 15 
2979 KAPELLEN 
(BELGIUM) 





Misschien is het zinvol om bij het vierjarig bestaan van DAInamic een kort 
humorhoekje te voorzien. We zijn ervan overtuigd dat ook in de wereld van 
de microcomputer vrij veel fijne en diepzinnige humor verscholen ligt. 
Daarom starten we in dit nummer met twee voorbeelden en hopen dat ze inspi- 
rerend werken, zodat we regelmatig gelijkaardige kronkels kunnen afdrukken. 


Al uw vondsten opsturen naar Bruno Van Rompaey. 


- Waar het hart van vol is loopt de mond van over. 
Zegt de leraar tegen zijn leerlingen : 
“ Houdt u allemaal in stilte basic" 


- Een waarschuwing : wees zuinig met de stringvariabelen in je programma; 


ze worden erg duur, 
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The Ultimate Video Game 


Andrew Bond reports on how the 
innovative application of personal 
computing has produced a low 
cost solution to the training of 
operators for Britain’s airborne 
anti-submarine defence effort 


Procurement of defence equipment 
has always been a mystery to the 
uninitiated, that is the majority of 
people, who have tended to gain the 
impression that ‘money no object’ is 
the watchword. However true that 
may have been in the past, the 
increasing financial constraints im- 
posed by successive defence reviews 
have created disciplines as tight as any 
that are encountered in the commer- 
cial world. Thus it should perhaps not 
be surprising, but is nevertheless 
gratifying, to find that one of the most 
innovative applications of low cost 
personal computing that at least this 
author has recently come across is 
with the RAF, providing a vital 
© aent in the training of Air Elec- 
tronics operators for the Nimrod 
maritime reconaissance aircraft. 

The Air Electronics School at RAF 
Finningley near Doncaster has the 
prime responsibility of training opera- 
tors for the highly sophisticated sonar 
and radar systems carried in the 
| imrod, Britain's airborne contribu- 
tion to Nato's effort to counter the 
Soviet submarine threat. The imm- 
ense capital and operational costs of 
sophisticated systems such as the 
Nimrod mean that the amount of 
training performed on ‘the real thing’ 
must be kept to an absolute minimum. 
Indeed, since the game of cat and 
mouse played out in earnest day in day 
out in the North Atlantic between the 
Soviet submarines on the one hand 
ar ' the RAF and the Royal Navy on 
t. other means that operators, once 
they join their operational units, must 


Computer Systems June 1983 
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be capable of performing up to the 
very highest standards that would be 
required in actual hostilities. Par- 
adoxically however, that also means 
that the opportunity to test their skills 
is limited since it depends on the 
Soviets obligingly laying on a sub- 
marine at the right place and the right 
time. Often, a long patrol can pass 
without the sonar operator having any 
contact to track and yet once such a 
contact does appear, he must be 
capable of performing his complex 
function, under stress, with faultless 
efficiency. 

Clearly, the solution to such a 
training problem is simulation and the 
RAF has long experience of the use of 
simulated systems both for pilot 
training and for specialist operator 
training. The introduction of the 


'Mark 2 version of the Nimrod, incor- 


porating sonar and radar systems 
which represent a further quantum 
jump in technological sophistication, 
has further highlighted the próblem of 
operator training. Working within a 
tight budget, the Air Electronics and 
Air Engineer School at Finningley was 
charged with providing and operating 
the facilities to train sonar and radar 
operators for the Nimrod 2. 

The traditional approach to simula- 
tion of such systems is to provide the 
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trainee with the same or identical 
equipment to that which he will use in 
the operational aircraft and then to 
provide synthetic inputs and res- 
ponses to provide a complete 
simulation of the operational system. 
While providing a very much cheaper 
solution than training personnel on 
actual operational systems, this is 
nonetheless a costly business since a 
large part of the equipment of a fully 
operational system is required in the 
simulator. 

Because of the complexity of the 
new Searchwater rádar carried in the 
Nimrod 2, it was decided that this 
fully simulated approach was the 
appropriate route to take for the 
training of radar operators. The Basic 
Processed Radar Trainer (BPRT) now 
operating at Finningley is about as 
near as it is possible to get on the 
ground to providing realistic ex- 
perience of using the system in the air. 
Such is the realism that operators 
from Nimrod 1 converting to the new 
system are being trained at Finningley 
until a similar installation is com- 
pleted at their operational base. The 
Searchwater radar, accurately sim- 
ulated by the BPRT provides 
capability vastly superior to its 
predecessors. The layman's image of 
radar operators is of men working in 
the dark, peering at a flickering CRT 
on which a timebase continuously 
rotates. Being a computer processed 
radar, Searchwater by contrast 
provides the operator with a high 
luminescence continuous display, 
viewable in daylight and more akin to 











a detailed annotated chart than the 
blips of the World War II movie. 

Having invested the larger part of its 
budget on radar training however, the 
Finningley team was faced with the 
problem of how to provide compar- 
able facilities for would be sonar 
operators. Again, the popular im- 
pression of sonar still has more to do 
with Noel Coward and ‘In Which We 
Serve’ than with the systems currently 
operated both in airborne and ship- 
borne anti-submarine warfare. Unlike 
the Asdic of the last war, the majority 
of modern sonar operates passively, 
purely as a listener, rather than 
through the propagation and subse- 
quent detection of an active signal. 

In the case of the systems carried by 
Nimrod and by the Royal Navy’s anti- 
submarine helicopters, the primary 
tool is the sonar buoy, dropped by the 
aircraft to detect sonic emissions from 
submarines and relay them to the 
aircraft. The basic task of the opera- 
tor is to analyse the resultant signals to 
produce data on the type, position, 
speed and course of the target. To this 
end he receives inputs simultaneously 
from a number of sonar buoys 
dropped in a pattern to provide a 
multipoint fix on the signal of interest. 

In the earlier systems such as that 
carried in the Nimrod 1, the data was 
presented to the operator in the form 
of traces on a strip chart. The ensuing 
analysis was then a matter of complex 


И . calculations on measurements taken 


manually off the strip chart. With the 
operator being presented with a 
number of separate traces from 
different sonar buoys, signal process- 
ing was a highly skilled process in 
which sleight of hand and experience 
played perhaps the major role. Ex- 
perience and familiarity with the 
signals is still a major element of 
| operating expertise with the new 
| system but the use of the computer 
| and video display has taken much of 
the mechanical drudgery out of the 
task, leaving the operator free to 


devote his skill to the identification . 


and tracking of the target. 
Having identified a training need 
| with regard to the sonar operator’s 
task, the requirement was to seek a 
cost-effective solution. It was app- 
į arent that a full simulator would cost 


in the region of £750 000 and so the 
Research Branch of RAF Support 
Command was asked to evaluate the 
alternative of a microcomputer-based 
system, a radical departure from 
traditional operational equipment. 
Nevertheless, the response of the HQs 
was positive and the Research Branch, 
with the aid of RAF Finningley, 
produced a prototype to conduct a 
feasibility study and develop training 
lessons and exercises. The project was 
handled over two years by a team of 
four, comprising a computer scientist, 
a psychologist with specialist know- 
ledge of training technology and two 
air-electronics personnel. 

The eventual solution to the pro- 
blem of training sonar operators has 
proved deceptively simple and quite 
astoundingly low in cost when com- 
pared with the more traditional 
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simulator based directly on operation- 
al equipment. The heart of the Basic 
Acoustic Trainer now used at Finning- 
ley is the DAI Personal Computer 
supplied by Data Applications. 
Mounted in a mock up console 
replicating that in the aircraft, it 
interfaces with a dual floppy disk 
drive, printer, colour monitor and 
various ‘real world’ peripherals, in 
particular the tracker-ball and keypad 
through which the operator himself 
interacts with the system. The use of 
the colour monitor, coupled with the 
personal computer's high perfor-' 
mance colour graphics and separate 
high speed maths processor enables 
the system to simulate accurately the 
display which will face the operator in 
the aircraft although the simulator 
presents him with only one display 
whereas the full system uses two. 
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The actual display is in essence 
simply a real time version of the strip 
chart output of the earlier system. 
What makes the operator’s task so 
much more complex than it might 
appear at first sight is that the signal 
received and relayed by the sonar 
buoy, comprises the emissions from 
‘all the vessels in the area, be they 
submarines or surface ships, naval or 
military, friendly or hostile. Moreover 
those signals are themselves masked to 
a greater or lesser extent by general 
background noise. It is the operator’s 
task to discern from this mass of 
incoherent information the vital data 
which will enable the Nimrod to 
perform its role. It is a somewhat 
reassuring measure of the capabilities 
f the human brain that this task, 
while made easier and more effective 
by the use of computer processing, is 
nonetheless still performed better by 
the human operator than by any 
practicable computer-based pattern 
recognition system. 

The purpose of the simulator then is 
to train the operator to recognise from 
the displayed data every one of the 
many signals and combinations of 
signals with which he is ever likely to 
be faced. 

This is achieved by loading into the 


Setting up the Basic Acoustic Trainer, the 
keyboard is hidden during training exercises 


system via the disk drives data which 
either originates from actual opera- 
tional sorties or which has been 
prepared by the instructor to highlight 


specific problems.The signal emitted ; 
* £70 000 at 1981 prices. It is thus not 


by a vessel, be it a surface ship or a 
submarine, is a combination of 
frequencies bearing a constant rela- 
tionship to each other. From careful 
analysis of this signal it is possible to 
determine, for example, the number 


of blades on its propeller and its shaft — 


speed together with much more 
revealing data such as auxiliary 
machinery running at multiples of the 
basic shaft speed. From this signal, 
bearing in mind again that it may have 
to be discerned against a background 
of signals from other vessels and of 
general noise, the operator can deter- 
mine sufficient information to ascer- 
tain, by comparison with data on both 
friendly and alien vessels, its exact 
type. 

Further information obtained from 
the numerous buoys deployed enables 
the operator to determine position, 
course and speed and this allows him 
to track it and, if necessary, direct the 
aircraft in an attack. Using the 
personal computer based simulator, 
an instructor can therefore present the 
operator with a range of realistic 
situations varying from the relatively 
simple to the most complex that he 
will encounter in real conditions. 


š DAI personal 
: computer 


24 


Let re a EMI kaita at Vm atas. үз" 
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Training of operators for this 
highly skilled and demanding task is 
by no means cheap. Indeed the cost of 
delivering a fully operational radar 
operator to a Nimrod 2 is in excess of 


surprising that the RAF has devoted 
considerable effort to ensuring that as 
few as possible drop out along the 
way. To this end it is interesting to 
note that it relies heavily on psycholo- 
gists both to assist in the selection of 
candidates and in their subsequent 
training. The team responsible for the 
development of the Basic Acoustic 
Trainer has thus been a multidisciplin- 
ary one drawing on operational 
experience, training theory and prac- 
tice and computer systems expertise. 
System and software engineering for 
the project has been undertaken by the 





Research Branch of RAF Support 
Command based at RAF Brampton in 
Cambridgeshire, with support from 
Data Applications. 

Any doubts that a trainer based on 


a low cost personal computer, albeit 


one of the more powerful available 
and designed to interface to a wide 
range of 10 devices, would not 
produce a realistic environment have 
been dispelled by the enthusiastic 
response the system has received both 
from instructors, themselves experien- 
ced operators, and from personnel 
who have had access to the system 
when converting from Nimrod 1. 
Data Applications has now com- 
pleted delivery of the ten systems 
ordered by MoD for RAF Finningley 
but is hopeful that that may not be the 
end of the story. On the one hand 
there is the possibility of a require- 
ment for further systems at operation- 
al RAF bases while the Royal Navy, 
which operates a very similar system 
in its anti submarine helicopters, is 
actively considering its adoption. [ ] 





The author thanks the RAF and in 
particular staff at RAF Finningley for 
their generous help in the preparation 
of this article. 

Data Applications Ltd is at Cirences- 
ter, Glos. Tel: 0285 61828 
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NEWSLETTER 17 EDITORIAL 
(from DAInamic 17, p215) 


Dear Members, 


It was about three years ago that the first publication of DAInamic appeared, a sober stencilled 
Т. sheet distributed via the firm DAI, It announced that а users’ club had been founded for the DAT 
E personal computer. The formation was occasioned by the lack of information on this 
: 3 revolutionary machine, and the need to make contact with Fellow users in the neighbourhood so 
| as to learn together. The founding of DAInamic met with great approval abroad, especially from 
E Holland in the early months, and such enthusiastic response was a delightful surprise for our 
nucleus of members. The users of that time will certainly still remember the difficulties to be 
overcome to get possession of a DAI computer, Many of us had to settle for an 8K black & white 
version without sound, Around that time DAI suffered a great disappointment when they could 
not deliver their machines on time for the TELEAC Course and so lost a fine chance of 
widespread promotion. However all the computers in production for that were soon bought up 
and the TELEAC affair quickly forgotten. But alas, DAI's manufacturing capability was 
inadequate to satisfy the huge demand, In France, Britain, Germany and Italy interest in the 
computer was growing and DAInamic was getting swamped with questions in many tongues, It 
was therefore time to depart from the one-language issues and thus the various translation 
services came into being. The anxiety and uncertainty caused by the bankruptcy of the DAI 
Company was later followed by contentment when a healthy take-over occurred! INDATA was 
the new name. New people and new policies. Meanwhile it had become clear that the change was 
even more important for the home market, The number of Belgian members is now mare than 450, 
In this short history we must mention a few names! J C Camby who as a true diplomat dealt with 
the impatient purchasers and those still waiting} Frank Druijff who quickly applied to join the 
Belgian nucleus} Freddy De Raedt who looked after programs like FGT and Assembler and 
answered members wanting to know more about machine language; Hans Wegman who put up his 
marker in DAI-land with the development of MDCR} Jan Boerrigter who with his colleagues 
unravelled the DAI hardware secrets for everybody and produced the Firmware Manual, Bruno 
Van Rompaey took the teaching profession in hand and founded diDAlsoft, There are so many 
E co-workers and correspondents both near and far we cannot name for lack of space. All have 
E helped to ensure that the DAIpc still has its place in the turbulent computer market and has а 
j healthy future ahead of it, We thank you for many pleasurable contacts, 


rawway" 


D al PER MS = 


Until the next time, 


Wilfried Hermans 


VIDEOTEX IN BELGIUM. 
(Synopsis of DAInamic 17, page 219) 


The article describes the farcical situation existing prior to April 1983 in Belgium, allegedly as 
a result of the State monopoly of modems for connecting videotex equipment to telephone lines. 
Purchasers of modern videotex terminals with automatic dialling and in-built modems still had 
to rant the official modem even though they had no wish to use it. To make matters worse the 
official one was huge, old-fashioned and lacked the auto-dialling facility, They were reputed to 
have been consigned to a cupboard while only the complete new terminal was connected to the 
phone line, That appeared to take care of the legal niceties, but the official rent was so high 
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that often it exceeded the rent of the complete modern videotex terminal, In April last the 
State relinquished its monopoly on modems, so that there would be no hindrance to technical 
developments! The Belgian videotex users have two prestel services, one run by Editel in 
Brussels and the other provided by Bell Telephone in Antwerp. Their current complaint is that 
telephone charges for calls to the videotex computers are too high, and compare unfavourably 
with the costs levied in other countries including the UK. 


PROGRAMMING TECHNIQUES 
(from DAInamic 17, page 224) 


The problem for discussion this time is on attributing to a variable a value which itself depends 
on the value of another variable, This is often solved in the following wayt- 


150 IP A-5 THEN P-3! GOTO 200 
180 IF A=6 THEN P="; GOTO 200 
170 IF A=7 THEN Р=7: GOTO 200 
180 ІР A=8 THEN P=9: GOTO 200 
190 P=0 

200 eeee eee 


This is clear and is the best method when there are many possibilities for A and P or when the 
value has to be obtained by a simple calculation. I will give a number of worked examples of 
better solutions which result in shorter and sometimes faster programs. Suppose we want 
numbers from 100 to 300 checked to see if they are divisible by prime numbers less than 20, 
Input the following program after an IMP ЕРТ. 


5 WAIT TIME 1: POKE #1BE,#FF+ POKE #1BF,#FF 
10 FOR I=100.0 TO 300,0 
20 IF 1/2,0=INT(I/Z.0) GOTO 110 
30 IF 1/3,0=INT(I/3.0) GOTO 110 
40 IF 1/5,0=INT(I/S.0) GOTO 110 
50 IF I/7,0-INT(I/7,0) GOTO 110 
60 IF I/11,0-INT(I/11,0) GOTO 110 
70 «IF 1/13,0=INT(I/13.0) GOTO 110 
80 IF 1/17.0=INT(I/17,0) GOTO 110 
90 IF 1/19,0=INT(I/19,0) GOTO 110 
100 PRINTI 
110 NEXT 
195 A=PEEK(#1BE)! B=PEEK(#1 BF)! 2(#FFFF-A-B#256.0)/50.0;" SEC" 


Lines 5 and 195 measure the running time. On my machine it took 12.44 (6,46) seconds, The time 
in the brackets is with the maths chip. We can see that for half the numbers the jump in line 20 
will be needed. Thus the order of testing is logical. If we put lines 20 to 90 inclusive in reverse 
order the running time will be increased to 21,74 (11,12) seconds, Naturally one can write the 
program better. After an IMP INT type in: 


5 WAIT TIME 1! POKE #1BE,#FF: POKE #1BF,#FF 
10 FOR 1=100 TO 300 
20 IF 1/19#19=I GOTO 110 
30 IF 1/17#17=1 GOTO 110 
40 IF I1/13#13=I GOTO 110 
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110 
195 
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IF 1/11#11=1 GOTO 110 

IF 1/7#7=1 GOTO 110 

IF 1/5#5=1 GOTO 110 

IF 1/3#3=I GOTO 110 

IF I/242-I GOTO 110 

PRINT I 

NEXT 

A=PEEK(#1BE)! B=PEEK(#1 BF)! PRINT (#FFFF-A-B#2Z56)/50.0 


The running time now is 9:58 (6,56) seconds, the gain coming from working in integers. The lines 


20 to 90 are still in reverse order} if they are again reversed the time becomes 5,88 (4,4), 
Combining line 20 with 30 and line 40 with 50 will save a bit more, achieving 5,82 (3,74) seconds. 
But it can still be betteri- 


20 
30 
40 


IF 1/242=] THEN NEXT: GOTO 195 
IF 1/3#3=I THEN NEXT 

IF 1/5#5=I THEN NEXT 

IF I/7*7-I THEN NEXT 

IF 1/11#11=1 THEN NEXT 

IF 1/13#13=I THEN NEXT 

IF 1/17#17=I THEN NEXT 

IF 1/19#19=I THEN NEXT 

PRINT Ii NEXT 


Lines 5, 10 and 195 are as before. It is a less attractive construction because after a FOR in 
line 10 there 9 NEXTs. To keep the program portable each NEXT should be followed by а GOTO 
195 but that would only increase the typing time, not the running time of 5.7 (3,52) seconds. Now 


w 
re 
oe 
ao 


change line 100 to read PRINT 1: NEXT The added semicolon is nat much of a change but the 
time now becomes 4,96 (2,88), Although the maths chip has been shown to speed up running time 
by 30% to 50% thoughtful programming can sometimes achieve 75%, Consider now some 
| variations on the original problemi- 


4 First! A can be 2, 3, 4, 5, 6, 7 or 8 and in the same order. P must be 12, 15, 18, 21, 24, 27 or 30. 


There is an obvious mathematical link between A and P such that as A increases by 1, P 
increases by 3, P can therefore be obtained by multiplying A by 3 and adding 6. 


150 
160 
170 
180 
190 
200 
210 


OLD NEW 

IF A=2 THEN P=12 

IF A=3 THEN P=15 

IF A=4 THEN P=18 150 P=A#3+é6 
ІР A=5 THEN Р=21 

IF A=6 THEN P=24 

IF A=7 THEN P=27 

IF A=8 THEN P=30 


There is a difference but in practice it will rarely be a problemi ‘old’ has IFs so P changed 
conditionally but with ‘new’ P always changes, 


Second! The same values as previously but in addition P must be 9 if A is less than 2 and 33 if A 
is greater than 8, 
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OLD 
150 IF А<2 THEN P=? 
160 IF A=2 THEN Р=12 
170 IF A=3 THEN P=15 
220 IF A-8 THEN P=30 
230 ІР A28 THEN P=33 


NEW 


150 P=A#3+6 
160 IF А<2 THEN P=? 
170 IF A>8 THEN P=33 


The drawback of the ‘new’ method is the possibility of no output from line 150, If in many cases 
A is less than Z it would be better to exchange lines 150 and 160 and put a GOTO 180 after the 


P=9, 


Third: The case where A increases regularly but there is no simple mathematical link between A 
and P} a calculation is thus difficult or impossible. 


OLD 
150 IF A=3 THEN P=7 
160 IF A=4 THEN P=4 
170 IF A=5 THEN P=15 
180 IF А=6 THEN P=31 
190 IF A=7 THEN P=76 
200 IF A=8 THEN P=45 
210 IF A=? THEN P=29 


NEW 


10 DIM PC?) 
20 FOR I=3 TO 9: READ PII) NEXT 


150 P-P(A) 


900 DATA 7,4,15,31,76,45,29 


The ‘new’ method slows the program somewhat in the beginning but amply compensates later. IF 
the ‘old’ was extended by say 20 lines the ‘new’ would have at most one extra line, 


Fourth: The case where P regularly increases and A behaves irregularly, Here too an array 


would be appropriate. 


OLD 
150 IF A-3 THEN P=2 
160 IF A=5 THEN P=3 
170 IF A=9 THEN P-4 
180 IF A=12 THEN Р=5 
190 IF A=33 THEN P-6 
200 IF A-42 THEN P-7 
210 IF A=57 THEN P=3 


NEW 
10 DIM A(8) 


20 FOR 1=2 TO 8: READ A(I NEXT 
150 FORI-2 TO 8: IP A(D=A GOTO 140: NEXT 


160 Pel 


Fifth? When there is no logical relationship either between A and P or in the values which are 
attributed to them. This could be when, for example, A is the ASCII code of a key while P is the 
action to be executed in a program. An array or arrays can be used} either a 2-dimensional array 
where As and Ps are next each other, or two separate single arrays. The latter is perhaps less 


elegant but works faster. 


OLD 
10 IF À-16 THEN P=7 
20 IF À-17 THEN P=8 
30 IF A=18 THEN P=15 


40 IF A=19 THEN P=16 : 


50 IF A=65 THEN P=0 
60 IF A=66 THEN P=2 
70 IF A=74 THEN P=-1 
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NEW 
10 DIM A(10),P(10) 
20 FORI-1 TO 10: READ A(D,P(I) NEXT 


50 FORI-1 TO 10 
60 IF A-A(O) THEN P=P(I): GOTO 80 


70 NEXT 
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E 80 IF A-78 THEN Р=99 SO 61060: 
a 90 IF A-83 THEN P=100 900 DATA 16,7,17,8,18,15,19,16,65,0 
100 IF A=9 THEN P=5 910 DATA 55,2,74,-1,78,99,83,100,9,5 


Lines 50, 60 and 70 of the ‘new’ could be replaced by one line thus! 
50 FORI-1 TO 10: P-P(IX IF A=A(I) GOTO 60! NEXT 


There are some points to look out for in order to avoid snags in the ‘new’ method! the new line 
60 ends with a GOTO which helps to improve the speed but could jeopardise the FOR-NEXT loop 
if there is also a NEXT from an outer loop. This can be overcame by using NEXT I instead of just 
NEXT. Nico P Looije has assisted me in the task of Speeding up the original program. 


Frank H Druijff 


S080 CASSETTE ROUTINES sSDK-—-ss. 
(fram DATmamic 417 nan a, SS a Se 
(from DAInamic 17, page 232) 


LETTER from Mr van Ool, Electronics Tutor, Almelo, Netherlands, 
Dear Sir, 


Herewith a complete source-listing of the promised program that makes it possible for all 
microcomputers which use the 8080, 8085 or 280 microprocessor to communicate with the DAT pc 
in machine language via the audio cassette recorder. 

The complete program contains the write and read routines which, via the original DAI pc 
interface, can record a machine language program on cassette (CASSrc) and read one in from 
cassette (CASSrd), as long as the micro system has been provided with the same interface. When 
the addresses where the program is located are used for other purposes by the other system, it 
is naturally possible to move everything, This is not difficult for DAI pc users who can handle 
the DNA assembler, 


The benefit of the program is realised in teaching situations where the DAI pc is used for 
developing machine language programs with the DNA assembler (or the SPL macro assembler), 
The object files generated, with for example the #P, command, can be recorded on cassette and 
from there read in to the microsystem via the read routine, This saves the user the tedium of 
inputting the hex codes. The undersigned thinks DAIpc users with a technical leaning will 
especially find this gratifying. 


Should there in the future be any interest in a CHECK program for testing a recorded program, I 
would be pleased to hear from you, You received previously the write program, before the read 
program was available; that may now be destroyed as the one with this has a few modifications, 
I am looking forward with pleasure to the insertion in DAlnamic, 

Friendly greetings from a northern neighhour, 


JJ J H. van Ool, 
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INDATA NEWS 
(from DAInamic 17, page 249) 


New version of DAI masterDOS for existing floppy drives, 


An new addition to the DAI MasterDOS now makes it possible to read and write directly to 
sectors and tracks, The addition was the result of general demand and gives the opportunity of 
making a real data base. 


The syntax is as follows!- 


RREC File name.ext Sector Memory position (Hex) 
WREC File name.ext Sector Memory position (Hex) 


Example! RREC TEST.BAS 1 5000! reads the first sector of the file "TEST.BAS" and puts the 
information at #5000, 
All names and values can be variables so that these values can be used for programming. 


Price! 500 Belgian francs for a disc and instructions, 


SERVICE MANUAL 


A service manual for the DAI Personal Computer has been published recently. The manual gives 
a very comprehensive description of the hardware functions and contains timing diagrams, 
memory map, and descriptions of processor, RAM, ROM, and video} in fact, all that a 
professional user needs to understand the workings of his machine. There are 16 pages giving 
the complete schematics of the computer. 


Price! 1500 Belgian francs. 


USING AZERTY USER 
(from DAInamic 17, page 250) 


1 Put the cassette in the DCR and connect up to the computer. When the DCR has stopped you 
can start working with the AZERTY keyboard, 

2 Pressing Reset without the cassette in the DCR will reconfigure your keyboard to QNERTY 
again. 

3 If you have already made use of the USER cassette you can still get back to AZERTY without 
trouble, from BASIC, by typing in CALLM #2F0, Take care to get the М; it is the Sth key from 
the left on the bottom row on a QWERTY board, Pay attention to what appears on the screen, 

4 Never try G2F0 in the Utility mode} your computer will stop. If you are already in BASIC with 
an AZERTY keyboard then AZERTY will be effective for all programs both in BASIC and Utility. 
5 The program is not to be used with other programs located below the Heap, as for example 
FGT, Should you require an adaptation for working such programs with an AZERTY keyboard you 
may get in touch with me} say which program is involved and give details like start and end 
addresses, entry point, version number, etc, If you wish, give a telephone number too but 
remember that I can only ring back during weekends, 

& You can make a back-up copy of the program as followsi- 
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* REW <ret> Rewind anew cassette, 

+ REW <ret> Rewind the USER cassette, 
> UT <ret> Goto Utility mode 

z R <ret>  Read- in the USER file, 


Put new cassette in DCR 
1 WZFO 37E USER &ret? Copy the USER file, 


>B Return to BASIC. 
+ 


77? Queries, problems and suggestions may be directed tot- 

Jos Schepens, 

Sint Jorisgilde 53, 

B-9330 DENDERMONDE, Belgium. 
I can be reached by telephone on 052/21 47 43, but only on Saturdays and Sundays between 1400 
and 2000. 


2 DIM A$(12.@) 

5 DATA CAPRICORNE, VERSEAU, POISSON, BEL IER, TAUREAU, GEMEAU, CANCER, LION, VIE 

RGE, BALANCE, SCORPION, SAGITTAIRE 

7 FOR I!=1.@ TO 12.0:READ AS(I'):NEXT I! 

19 MODE @:PRINT CHR$(12):COLORT 12 5 @ @:CURSOR 19,23:PRINT "— SIGNES DU 
ZODIAQUE —": CURSOR 19,22:PRINT "======================"sPRINT 

20 PRINT "Christian Poels - 8/4/1981 - Ref.: Le BASIC par la pratique" 

25 PRINT " (J.P. Lamoitier).":PRINT 


3e PRINT "Quelle est votre date de naissance ? JJ/MM/AAAA":CURSOR 37,14: 
PRINT "../../....":CURSUR 37,16 

40 GOSUB 1000 

41 J!-RU:BDSGUB 1000:J'—-J'*10.0-RU: PRINT “/"3:G0SUB 10@@:M'=RU:GOSUB 1000 
sM!=M! #10. OHRU:PRINT "/";:GOSUB 1000 

45 At=RU 

50 GOSUB 1000:A!=A!#10.0+RU:GOSUB 1000:A'=A!#10.0+RU 

68 GOSUB 1090:ñ!=ñ!*10.0+RU 

70 I'=M':L!=20.0 

вә ON M! GOTO 300, 300, 250, 300, 250, 250, 200, 100, 100, 100, 200, 100 
100 L'-L'*1.60 

200 L!=L!'+1.0 

230 L!=L!+1.@ 

360 IF J'<L! THEN 520 

310 It!=I!+1.@ 

320 IF 1'<=12.0 THEN 540 

330 I'=1.0 

340 PRINT СНЕФ (12) :РКІМТ "Vous etes "sA$(CI!);"." 

350 PRINT :PRINT "Voulez-vous recommencer (G/N) ?"; 

360  RE'=GETC:IF КЕ!=79.0 THEN 10 

370 IF RE'<>78.0@ THEN 340 

380 END 

1000 RE-GETC:IF REX48.0 OR RE>57.@ THEN 1900 

1616 RU-RE-48: RE$-MID$ (STRS (RU), 1, 1): PRINT RES; : RETURN 
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SPECIALE AANBIEDINGEN TO EINDE '84 





KLEUREN MONITORS met RGB ingang + gratis RGB-kaart (waarde 2380) 


~ BARCO 42 cm (nieuw model) 28.950 
- TAXAN КАСА I (380 dots) 26.500 
- ROLAND (High resolution) 35.000 


PRINTERS + gratis grafische interface (waarde 6000) 


- EPSON RX80 T 29.900 
- EPSON RX80 F/T 33.500 
- EPSON FX80 F/T 43.500 
- STAR GEMINI 10X F/T 26.500 
- STAR DELTA 10 F/T 40.900 


PLOTTERS ROLAND seriele « parallel interface standard 


- DXY-101 (1 pen) 39.500 

- DXY-800 (8 pen) 49.500 
MDCR MEMOCOM 

DCR+TOS+KABEL+1 DOOS CASSETTES 16.000 


COPAM PC401 I.B.M. compatibel systeem 


- 8088 processor 4.77 Mhz. / 8087 optioneel 
- 128K RAM / uitbreidbaar tot 256K 

- 8 I.B.M. compatibele slots 

- 2 360K drives ingebouwd 

- seriele , parallel en klokkaart ingebouwd 
- MS-DOS 2.11 operating system 

- monochroom en RGB sturing ingebouwd 

- monochrome monitor (I.B.M. alike) 

- toetsenbord (I.B.M. compatibel) 


STUNTPRIJS : 154.000 


Alle vermelde prijzen in Belgische franken , B.T.W.(19%) incl. 


Herseltsesteenweg 103 - 3220 Aarschot — tel. 016/56 87 70 


BTW Nr. 424 175 357 1 GB Nr. 230-0282619-78 


Dok ZA E [CS part = 


DBASIC EXTENSIONS 


In previous articles and in the DBASIC manual, I «mentioned that an 
extension can be used to add new commands and/or statements to the existing 
instruction set of DBASIC. I | 

sing an example, I will explain how such an extension can be programmed in 
assembly language. Some knowledge of 8080 assembly language programming and 
the DAI operating system is desired for understanding this explanation. 


| 2. The example : direct input/output 

A usefull extension of DBASIC could be a direct input/output facility : 
і.е. writing a part of memory directly to tape or disk, or reading a saved 
part of memory direcly from tape or disk (cfr. R and W commands in 
utilities). 

These commands are supported on some systems as DLOAD and DSAVE (ex 
KENDOS). I propose the following syntax-rules (items in square brackets are 
optional) : 


DSAVE LOWADDRESS, HIGHADDRESSL FILENAME] 
ІМ ПАРІ OFFSET IES FILENAME] 


hed 


. Table driven syntax 

To link these commands to DBASIC you have to provide a table specifying the 
syntax,runaddresses etc... 

Listing 1 (page 326), a SPL macro assembler source listing of a program ta 
create the DBASIC extension DIO (Direct Input Output), you will find the 
table-layout. 

In this table non-documented items are just length-bytes. The maximum 
length is @fh. All the other items are described below. 


„extension name : is used for error-reporting and the $DELETE command. 
„extension id : is a number between 9h and @ffh which is needed for 
compilation. I advice you to number your own extensions descending from 
efh on to avoid conflicts with standard DBASIC extensions. 
ex. extension id. of *SYSTEM is @ffh 

$DCR is &h 
„relocation table : is used in $EXTEND and points to a table with all the 
addresses to be relocated. In order to be completely relocatable a machine 
language program should only contain 2-byte word memory-references (ех. 
avoid the use of LOW and HIGH operators in MACRO 86). After loading and 
relocation of the extension the relocation table will not be kept on line. 
“separators : is a set of B punctuation marks needed during encoding and 
listing of the commands. Any argument is always preceeded by one of these 
separators. 
“command string : identifies the command. Only the ist character of the 
command string may be non-alphanumeric (ex. $ in $EXTEMD). 
-encode control : it's binairy form is ccXX 1111 (X stands for don't care). 


with 111 number of possible arguments+? 

cc=X1 statement valid in program 

cc=1X command valid in direct command mode 
“execution address : offset to the start-address of the command's execution 
code. 
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-argument syntax : it's binairy form is tttt sesf 
with S55 the number of the separator which preceeds the argument 
(from ë to 7). 
fzi the argument preceded by separator sss is obligatory. 
fz the argument preceded by separator sss is optional. 
tttt=8000 the argument is a floating point expression. 


tttt=Ə@01 the argument is an integer expression. 
tttt=0010 the argument is a string expression. 
tttt-eeli the argument is a variable reference. 
tttt=0111 the argument is an array reference (cfr. LOADA). 
tttt=1811 the argument is a group of variable references 
separated by "," (cfr. READ). 
tttt-1111 the rgument is a group of array-references separated 
by ата 
In our example the encode cantrol of DSAVE is @cSh, thus DSAVE can be used 
as direct command or as statement in a program. The length of the info is 
5, 2 bytes for the run-address and 3 bytes of argument syntax description : 
argument syntax 17h : an integer expression preceeded by separator 3 (a 
blank) has to be supplied. 
argument syntax lih : an integer expression preceeded by separator @ (a 
* 72) has to be supplied. 
argument syntax 22h : a string expression preceeded by separator 1 (a 737) 
is optional. 


The DLDAD command has two argument syntax bytes : 

argument syntax 16h : an integer expression preceeded by separator 3 (a 
blank) is optional. : 

argument syntax 22h : a string expression preceeded by separator 1 (a 757) 
is optional. 


If you understand this you will agree with me that, using the same 
separators, the command HOME has no argument syntax byte and that the 
command ERASE ARRAY1,ARRAY2,... will have one argument syntax byte : @f7h. 


The code 

The runtime code usualy can be seen as a sequention of 2 parts : 

part 1 : evaluate the arguments. 

part 2 : do some processing using the evaluated arguments as parameters. 


For evaluation of the arguments you need the addresses of standard DBASIC 
routines. The 2 routines needed in DIO are: 


REXI2 : evaluate a 2 byte integer expression in hl. 
REXSR : evaluate a string expression (hl points to the string). 


A list of the most important DBASIC routines with a description of the 
entry-conditions and the praduced output will be available soon. | 

Note that in evaluating optional arguments a test is done on a ®@-byte іп 
the textbuffer. This is because for a non-supplied optional argument a @- 
byte is encoded in the textbuffer. 
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Extension cantrols 

Five pointers in the DBASIC system ram are reserved to control encoding, 
listing and evaluation of extended commands. 

These five controls are: 





USCMTE : is a pointer to the first extension-root (=start of Ist table) 
A next extension is linked to the previous extension through the 
ext table pointer (=relacation table pointer). 


: is a pointer to the separator table during encoding. 
à RÜTSAV : is used in error-handling. If ROTSAV=@h an error will be consi- 
ў. dered to be generated іп а DBASIC command, else the error will be 


considered to be a specific extension error and ROTSAV points to 
the xtension root. Thus if we want explicit extension errors 
instead of for instance a "NUMBER OUT DF RANGE’ error, the first 
thing we have to do is to set ROTSAV equal to our extension root 
(DIDRDT in our example). 

Then we would get error messages of the form : 


| SEPTAE 
| 
| 


DIO ERROR nnn pr 
DIO “special error message’ (see ERRREP) 


ERRREP : is a pointer to a special extension-errar-reporting-routine. This 
pointer has to be supplied during the execution of the extended 
commands. 

Assume we want 2 special error messages in DIO : 


DIO DSAVE ERROR (ERR=i) and 
DIG DLOAD ERROR (ERR=2 


To print the special error messages we have to supply DIDERR to 
ERRREF. Gs you can see this is done during execution of the 
xtension's auto-recavery (USCREC). 


USCREC : s a jump to the extension’s auto-recovery routine. 

£ an error occures during execution of an extended command, you 
ay have to restore some system data or anything else that has 
been changed by the extended command. USCREC allows you to do it. 
In our example this auto-recovery feature is only used to convert 


the error codes and to enable special error reporting. 


Another extension : HOME 





Listing 2 (page 337) shows how the HOME command (Apple 2) can be 
implemented. As you can see the code of this extension 15 very simple since 
no arguments have to be evaluated and no error reporting has to he done. 


BEAP AAR a ee 


I hope you will have enough information to be able to experiment with 
DBASIC extensions. 


Willy Coremans 
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TITL "DIO : DIRECT INPUT/OUTPUT’ 


Assemble with offset (ex. A1000). 
Pass this offset to the write macro (write OFFSET). 
To write the extension, execute WRITE+OFFSET. 


3 
Q 
r+ 
m 


FFSET SET 1606H soffset for Assemble 


sO CO“ Cr CD + iN FJ == 


an [7] `. van we wa an 


TRUE SET eFFFFH 
FALSE SET eH 


ERRORR SET TRUE special error reporting 


+ 
e 


3 
DIOID SET @EFH sextension id 
$-——system ram--- 


POROM SET 40H sduplicate of @FD@6H 
PORG SET OF DOSH discrete output port 


s 

ROPEN SET 2CEH open file for read 
RELK SET 2рін sread block 

RCLOSE SET 2D4H iclose file after read 


-~-dbasic system ram-——- 


ERREYT SET SH serror code 

USCREC SET 33H I sextension’s auto recovery 
USCMTB SET ecaH sroot of first extension 
SEPTAB SET @CAH sseparator table 

ROTSAV SET @CCH ‘saved extension root 
ERRREP SET @CEH sspecial error reporting 

EJ > 

s——dbasic са11°5--- 


= 
@ 
Ge 
fr 
I 
ё 


3 
REXI2 SET 1F47H srun 2-byte int. ex. in hl 
.REXSR SET 1FAFH srun $-ex. in hl 


del C4 tel C4 C 


éd © 


A A 
SOO ы QI ¢ 


---rom са11°5--- 


4 
m 


J 


2 
DADA SET @DESCH 
PMSG SET 8DAD4H 


t 


ч 


44 
Cn da 


5 
$---data definition of macro's-— 


3 


4 
er 


n 
~g 


DATA 
CODE 


СЛ СЛ q p 
m C 0 CO 


л 
ho 


tA 


on cn 
na 


IDRDT 
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SET 
SET 


TRUE 
FALSE 


write OFFSET 


ORG 


DB 


өн 


---command table-—— 


3H 
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SPL V1.1 


54 
57 
58 
59 
6e 
61 
52 
63 
&4 
65 
56 
67 
68 
&9 
7e 
71 


REL919 


REL026 


PAGE 2 


DB 
DB 
DB 
DW 
DE 
DB 


DIO : 


"DIO? 
9BH 

DIOID 
RELTBL 
tit ./=' 
SH 

* DSAVE” 
@CSH 
RDSAVE 
17H 

11H 

22H 

5H 

"ТИ DAD 
@C4H 
RDLOAD 
16H 

22H 

ән 


runtime-code--- 


3 
RDSAVE 
RLE918 


RLEG29 


RLee1e 


RL9029 
Н 


RDSAVI 


өөө 
RLOG4G 


3 


BANKS 


BANERS 


IF 

LXI H 
SHLD 
LXI H 
SHLD 


ELSE 
LXI H 
SHLD 
ENDIF 


LDñ 
PUSH PSW 
CALL 
POP PSW 
DRA à 
JMP 


CALL 
PUSH H 
CALL 
PUSH H 
LXI H 
CALL 
CALL 
JMP 


LDA 
АМТ 
ORI 
STA 
STA 
RET 


---direct save--- 


ERRORR=TRUE 
DICROT 
ROTSAY 
DSVERR 
USCREC+1H 


2H 


ROTSAV 


POROM 


RDSAV1 


BANKRS 


REXI2 


REXI2 


. oH 


REXSRS 
BANKS 
BEEF GH 


PDRDM 
ЗЕН 
@COH 
POROM 
PORO 
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DIRECT INPUT/OUTPUT 


s=extension name 


s=extension id. 
s=relocation table/next table 
;-separators 


command name 
encode control 
run-address 
argument syntax 
argument syntax 
argument syntax 


ти 
! ll 


an 


$-command name 
s=encade control 
$-run-address 
s-argument syntax 
a 


=argument syntax 
s=end table 


senable ext. error reporting 


sset ext. auto recovery 


sdisable ext. error reporting 


sSave current bank 
sdirect save 

srestore bank 

sget low address 

sget high address 
sdefault is no file-name 
sget optional file-name 


sswitch to bank 3 
swrite file 
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SPL 


if 
115 
115 
117 
11 
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3---direct load-- 

RDLOAD IF 

RLE@Z@ LXI H 
SHLD 


ERRORR=TRUE 
DIOROT 
ROTSAV 

LXI H DLDERR 
SHLD USCREC+1H 
LXI H 2H 


RLES48 


ELS 

LXI H он 
SHLD ROTSAV 
ENDIF 


CALL 
XCHG 
LXI H өн 
CALL REXSRS 
PUSH B 
PUSH D 
LXI B 
PUSH H 
LHLD 
MOV A, 
ОВА L 
POP H 
RL0065 JNZ 
MVI C 
CALL 
LXI H 


REXI?S 


RLeese 


3160H 


1099H 
H 


DLDPGM 
ӘРЕН 
КОРЕМ 
BUMPSA+1H 
LXI D DUMPSE 
CALL RBLE 

LXI H 6H 

POP D 
DAD D 
LXI D 
CALL 
CALL 
POP B 
ORA A 
RET 


DLBPGM 
RLA978 
RLeese 


DUMPSA 
DUMPSE 


OF?60H 
RBLK 
RCLOSE 


LDAX B 

INX B 

ORA A 

RZ 

DCX B 

JMP REXI2 


5 
REXSRS LDAX B 
INX B 
ORA A 
RZ 

DCX B 


JMP REXSR 


IF ERRORR=TRUE 
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11,1 PAGE 5 IQ : DIRECT INPUT/OUTPUT 


senable ext. error reporting 


sset ext. auto-recovery 


sdefault is no offset 
sdisable ext. error reporting 


iget optional offset 
sin de 
sdefault is read without name 


ssave txtbuf-pointer 
ssave offset 

sfile type ‘1° 

sno display while read 


sif dir. cmd. display 
sopen file 


sdump start-address 
get start-address 
sadd offset 


sdirect load 
sclose file 








са 


ol icd aeg Ee ue cs 


e ln a gr At iSo o T 


edna dba 


orn er okeej 
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172 
173 
174 
175 
176 
177 
178 
179 
186 
181 
182 
185 
184 
185 
186 
187 
188 
199 
199 
191 
192 
195 
194 
195 
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:——-extension/'s auto recovery--- 


5 

DSVERR MVI A 

DIOSER STA 

RLE@S5@ LXI H 
SHLD 
RET 


DLDERR MVI 
RLEG&S JMP 


s 
; 
DIDERR LDA 
ADD A 
RLEG76 LXI H 


CALL 


MOV А, М 


INX H 


MOV H,M 
MOV L.A 


JMP 
5 


3 


BIGETB SET 
RELEI@ DW 
КЕ Ее DW 


з 
i 
Н 
MDSVER BB 
strin 
mess 
DB 
MDLDER DB 
strin 
mess 
DE 
5 
ENDIF 


* 
* 
3 


E 
RELTBL DW 


5 


DIO : DIRECT INPUT/QUTPUT 


1H 

ERRBYT 
DIOERR 
ERRREP 


2H 
DIOSER 


—-special error reporting——- 


ERREYT 


BICETE 
BADA 






PMSG 


$—2H 
MDSVER 
MDLDER 


--—-errür messages 


fp 
9UD23H 
@DC 15H 
ен 
Ту? 
9UD1BH 
9DC 13H 
eH 


3——-relocation tahble--- 


RELe19 
КЕ! @2@ 


ERRORR=TRUE 
RELE1@ 
RELE29 


RLO@1@+1H 
RL0020+1H 
RL9936+1H 
RL00649+1H 
RL0950+1H 
RL0060+1H 


*D-BASIC part 3+ 


convert error to 1 


set special error reproting 


sconvert error to 2 


sreport the error 


—--extension’s error-message table-—— 


3D 

3 SAVE 

s ERROR 
3D 

+ LOAD 

s ERROR 
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SPL Vi.i PAGE 5 DIO : DIRECT INPUT/OUTPUT 


2360 DH г @@S5+1H 
231 DW RL@e7O+1H 
252 DW Ri S680 1H 
234 | IF ERRORR=TRUE 
235 RLEG1041H 
23 DW RL E@2@+1H 
237 DW RLEOGSG-F1H 
23 à DW RLEG46+1H 
239 DH RLESS@+1H 
246 | DW RLEGGO1H 
241 DH RLE878+1H 
242 ENDIF 

243 5 

244 BW ен 

245 E 

246 WRITEN SET $ 

247 š 
248 DATS SET FALSE 

249 CODE SET TRUE 

258 WRITE SET $ 

251 write OFFSET 
292 5 

2593 END 

25 

255 —--write an extension ——— 
256 

257 write MACRO OFF 

258 IF DATA=TRUE 
259 WOPEN SET 2C5H 

269 WBLE SET 2C8H 

261 WELOSE SET 2CBH 

262 ENDI 

263 IF CODE=TRUE 
264 MYI A E 

265 LXI H OFF 

255 CALL WOPEN 

247 LXI 2H 

268 LXI H DUM+OFF 
269 CALL WELK 

278 LXI OFF 

271 — LXI D WRITEN 
272 CALL WBLE 

273 JMP WCLOSE 

27 BH eH 

275 ENDIF 

276 MEND 

277 

278 MACRD PTR 

27 PTR-4000H 
280 PTR) 8H 
281 FTR&AFFH 
282 

283 

284 PNTR 

285 PNTR} 8H 
286 PNTR&SFFH 
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ip i А! ET 





MEMORY MAP HEDE 


64 BFEF BFEE BFED BFEC BFEB BFEA BFE9 BFEG BFE7 BFES DFES DFEA DFES BFE2 BFE! BFEO BFDF BFDE BFDD BFDC BFDB RFDA BFD9 BFDB 
65 BFD7 BFD& BFDS BFD4 BFD3 BFD2 BFD1 BFDO ВЕСЕ ВЕСЕ BFCD BFCC BFCB BFCA BFC? BFC8 BFC7 ВЕСЬ ВЕСУ ВЕСА BFC3 ВЕС2'ВЕСІ BFCO 
62 BFBF BFBE BFBD BFBC BFRB BFBA BFB? BFB BFR7 BFR BFBS BFB4 BFB3 BFB2 ВЕВІ BFBO BFAF BFAE BFAD BFAC BFAB BFAA BFA? BFAB 
61 BFA7 BFAG BFAS BFA4 BFAS BFA2 BFAL BFAO BF9F ВЕЗЕ BF9D BF9C BF9D ВЕЧА BF99 BF98 BF97 BF96 BF9S BF94 BF9S BF92 BF91 BF90 
60 BFBF BF8E BF&D BF8C BFGB BFAA BFA? BF88 BF87 ВЕВЬ BFBS RFB4 BFB3 BF82 ВЕВ! ВЕВО BF7F BF7E BF7D BF7C BF7B BF7A BF79 BF7B . 
59 BF77 BF76 BF7S BF74 BF73 BF72 BF71 BF70 BFGF ВРБЕ BF6D BF&C BFGB ВРБА BF69 BF68 BF47 BF66 BF6S BFAA BF63 BF62 BF61 BF4O 
58 BFSF BFSE BFSD BFSC BFSB BFSA BFS? BF58 BFS7 BFS& BF55 BF54 BFS3 BF52 BFS1 BF50 ВЕЛЕ ВЕЛЕ BFAD BFAC BF4B BFAA BF49 BF48 
37 BF47 ВЕДЬ BF45 BF44 BF43 BF42 BF41 BFAO ВЕЗЕ ВЕЗЕ BF3D BF3C BF3B ВЕЗА BF39 BF3B BF37 BF36 BF3S BF34 BF33 BF32 BF31 BF30 
56 BF2F BF2E BF2D BF2C BF2B BF2A BF29 BF28 BF27 BF26 BF25 BF24 BF23 BF22 BF21 BF20 BFIF BFIE BFID BFiC ВҒІВ BFIA BF19 BF18 
55 BF17 BFi6 BF15 BF14 BF13 BF12 ВРІ! BF10 BFOF BFOE BFOD BFOC BFOB BFOA BFO? BFOS BFO7 BFO& BFOS BFO4 BFOS BFO2 BFOI BFOO 
54 BEFF ВЕРЕ ВЕРЮ BEFC BEFB BEFA BEF? BEFB BEF7 ВЕРЕ BEFS BEF4 BEFS BEF2 BEF1 ВЕРО BEEF BEEE BEED BEEC BEER BEEA BEES BEES 
53 BEE7 BEES BEES BEE4 BEES BEE2 BEE BEEO BEDF BEDE BEDD BEDC BEDB BEDA BED9 BEDS BED7 BEDS BEDS BEDA BEDS BED2 BED! BEDO 
32 BECF ВЕСЕ BECD BECC BECB BECA BEC? BEC8 BEC7 ВЕСЬ RECS BEC4 BEC3 BEC2 ВЕСІ BECO BEBF BEBE BEBD BEBC BEBB BEBA REB9 ВЕВВ 
51 BEB7 BEB6 BEDS BEB4 BEB3 ВЕВ2 BEBI BEBO BEAF ВЕДЕ BEAD BEAC BEAB BEAA BEA? BEAS BEA7 BEAG BEAS BEA BEAJ BEA2 BEA! BEAO 
50 BE9F ВЕЗЕ BE9D BE9C BEB ВЕЗА BE? BE98 BEI7 BE96 REUS BEI BE9S BE92 BE91 ВЕ90 ВЕВЕ BEBE BERD BESC BEBB BEBA BEB? BERS 
49 BES? BEB6 BEB5 BEBA BESI ВЕВ2 BEBI BEBO BE7F BEJE BE7D BE7C BE7B BE7A BE79 BE78 BE77 BE76 BE7S BE74 BE73 BE72 BE71 BE7O 
48 ВЕБЕ ВЕБЕ BE6D ВЕБС BE6R BEGA BEG? BESS ВЕБ7 BESS REGS BEG4 BE&3 ВЕБ2 BEGI BEGO BESF BESE BESD BESC BESB BESA BES? BE58 
47 BES7 BES6 BESS BES4 BESI BES2 BES! BESO ВЕЛЕ ВЕДЕ BE4D BEAC BEAB BEAA BEA? BE4G BE47 BEAG DEAS BE44 BEAS BEA2 BEAL BEAO 
46 BESF BEJE BESD ВЕЗС ВЕЗВ BEJA BE39 BE38 BE37 BE36 BESS ВЕЗА ВЕЗУ ВЕЗ2 ВЕЗІ BESO BE2F ВЕ2Е BE2D BE2C BE2B ВЕЗА BE29 BE28 
45 BE27 BE26 BE25 BE24 ВЕ2$ BE22 ВЕ21 BE20 BEIF BEIE BEID BEIC BEIB BEIA BE19 BELG DEI7 BELG BELS BE14 BE13 BE12 BEL! BE10 
44 BEOF BEOE BEOD BEOC BEOB BEOA BEO? BEOB BEO7 BEOS BEOS BEO4 BEO3 BEO2 BEOL BEOO BDFF BDFE BDFD BDFC BDFB BOFA BDF9 BDFB 


43 BDF7 BDF& BOFS BDFA BDF3 BOF2 BDF BDFO BDEF BDEE BDED BDEC BDEB BDEA BDE9 BDES BDE7 BDE& BDES BDEA BDES BDE2 BDE! BDEO 


42 BODF BDDE BDDD BDDC BDDB BDDA BDD9 BDD8 BDD7 BDDó BODS BDD4 BDD3 BDD2 BDDi BODO BDCF BDCE BDCD BDCC BDCB BOCA BOC? BDC8 
41 BDC7 ВОСЬ BDCS BDC4 BDC3 BDC2 BOCI BDCO ВОВЕ ВОВЕ BDBD BDBC BDBB BOBA 8089 BOBS BDB7 BORG BDBS BOBA ВОВУ BDB2 В081 BDBO 
40 BDAF BDAE BDAD BDAC BDAB BDAA BDA? BDAG BDA7 BDA& BDAS BDA4 BDA3 BDA2 BDAL BDAO ВОЗЕ BD9E BD9D BD9C BD9B BOTA BD99 BD98 
39 В097 BD96 В095 BD94 BD93 3092 8091 В090 ВОВЕ ВОВЕ BDSD BOSC BD8B ВОВА BOB? BNA BD87 BOS BOBS В094 BD83 BD82 3081 8080 
38 BD7F BD7E BD7D BD7C BD7B BD7A В079 BD78 BD77 BD76 8075 BD74 BD73 В072 BD71 BD70 BD&F BOGE BDSD BD6C BD6B BD6A RD69 BD68 
37 BD67 8066 BD65 BD64 BD6S 8052 BOS! В060 BDSF BDSE BOSD BDSC BDSB BDSA В059 BD58 В057 BD56 BD55 BDS4 BDSI BD52 BOS! 8050 
36 BD4F BD4E BD4D BD4C BD4B BD4A BD49 BD48 BD47 BD46 8045 BD44 BD43 В042 BD41 BD40 ВОЗЕ ВОЗЕ BOSD BOSC BD3B BOTA BDJ9 BNIB 
35 В037 BD36 BOSS В034 BDS3 B032 В031 В030 BD2F BD2E BD2D BD2C BD2B BD2A BD29 BD28 8027 BD26 BD25 BD24 BD23 RD22 BD21 BD20 
34 BDIF BDIE BD1D BDIC ВОІВ BOIA В019 BOS BD17 В016 BD15 В014 BOIS BD12 BDii BOLO BDOF BDOE BDOD BDOC BOOB BDOA 8009 BDOS 
35 BD07 8005 В005 В004 BDOS 8002 BDOI BDOO ВСР BCFE BCFD BCFC BCFB BCFA BCF9 BCFB BCF7 BCF6 BCFS BCFA BCF3 BCF2 BCFI BCFO 
32 BCEF BCEE BCED BCEC BCEB BCEA RCES BCEB BCE7 BCEG BCES BCEA ВСЕЗ BCE2 ВСЕ! RCEO BCDF BCDE BCDD BCDC BCDB BCDA BCD9 BCDS 
31 BCD7 BCD& BCDS BCD4 BCD3 BCD2 BCD1 BCDO BCCF BCCE BCCD BCCC BCCB BCCA BCC? BCCB BCC7 ВССЬ BCCS BCCA BCC3 BCC2 BCCI BCCO 
J0 BCBF BCBE BCBD ВОВ BCBB BCRA BCB9 BCBB.BCB7 BCBS BCBS BCB4 BCB3 BCB2 BCBI BCBO BCAF BCAE BCAD BCAC BCAB BCAA BCA3 BCAS 
29 BCA7 ВСАБ BCAS ВСА! ВСАЗ ВСА2 BCAI BCAO BC9F BCIE BCID ВСС BC9B ВСЗА BC99 BC98 BCH BC95 ВС95 BC94 BCYS ВС92 BCH BC90 
28 BC8F BCBE BCED BCEC BCSB ВСВА BCA? BCBG BC87 BCS BCBS BCRA BCBS ВС82 ВСВІ BCBO BC7F BC7E BC7D BC7C BC7B RC7A BC79 BC78 
27 BC77 BC76 ВС75 BC74 BC73 BC72 BC71 BC70 BCAF BCE BC&D BC6C BCAB BCbA BC69 BC6B BCA7 BCS BCSS BC&A BC63 BC62 BCAi ВСЬ0 
26 ВСР BCSE BCSD BCSC BCSB BCSA ВС59 BCSB ВС57 BC56 ВС55 BC54 BC53 BCS2 BCS 3050 BCAF BCAE ВСА BCAC BCAB BCAA BC49 BC48 
25 BC47 BC46 ВС45 BC44 BC43 BC42 BC41 BC40 BC3F ВСЗЕ BC3D BC3C ВСЗВ ВСЗА BC39 BC3B BC37 ВСЗЬ BCIS BCS4 BC3S BC32 ВСИ BC30 
24 BC2F ВС2Е BC2D ВС2С BC2B BC2A BC29 ВС28 BC27 BC26 BC25 BC24 BC23 BC22 BC21 BC20 BCIF BCIE BCID ВСІС BCIB BCIA BC19 BC18 
23 BC17 8016 BC1S BC14 ВСІЗ ВСІ2 BC11 8010 BCOF BCOE BCOD BCOC BCOB BCOA ВС09 BCOB BCO7 BCOS BCOS BCO4 BCO3 BCO2 BCO! 800 
22 BBFF ВВРЕ BBFD BBFC BBFB BRFA BBF? BBFB BBF7 BBF& BBFS BBF4 BBF3 BBF2 ВВЕ1 BBFO BBEF BREE BRED ВВЕС BBEB BBEA BBE9 DBEG 
21 BBE7 BBE6 BBES BBE4 BBE3 BBE2 ВВЕ1 BBEO BBDF BBDE BBDD ВВОС BBDB BEDA ВВ09 8808 BBD7 BEDS BEDS. 8804 BBDS BBD2 BRD! BBDO 
20 BBCF BBCE BBCD BECC BBCB BBCA BBC? BBCS BBC7 BBCS BBCS BBC4 BBCI BRC2 BBCI BBCO BBBF BBBE BBAD BBBC BBBB BEBA BBB? BBB8 
19 BBB7 BBB6 ВВВУ BBB4 ВВВЗ BBB2 BBB1 BBBO BBAF BBAE BBAD BBAC BBAB BBAA BBA BBA BBA7 BBA& BRAS BBA4 BBAJ ВВА? BBA BBAO 
18 BB9F ВВЕ BB9D BB9C BB9B BRIA BB99 BB98 BB97 ВВ9 3395 BB94 BB93 3392 8891 3890 ВЕВЕ BBGE BBAD ВВС BRGB BEGA 3889 BRAG 
17 BB87 BB86 8585 BB84 BB83 ВВӨ2 ВВ81 BB80 DB7F BB7E BB7D BB7C BB7B BB7A BB79 BB78 BR77 BB76 BB75 BB74 8373 BB72 3371 8870 
16 ВВЕР BB6E BBAD BB6C ВВЬВ BBGA BBG BB68 BB67 BRGG ВВ55 BB64 BB6S BBA2 BBG! 3350 BBSF BBSE BRSD BBSC 2858 BRSA 8859 BB58 
15 BBS7 BBS6 BBSS BBS4 BB53 ВВ52 BBS1 BBSO PBAF DBAE BB4D ВВАС BBAB BBAA BB49 BRAG 347 BBA6 BRAS B044 BBAS BBA2 8841 BB40 
14 BBSF ВВЗЕ BB3D BB3C ВВЗВ BB3A BB39 BB38 BB37 BBI6 BBIS BB34 BRIJ BB32 BB3L 3830 BB2F BRE 9820 BB2C BB2B BRIA BB29 BB28 
13 BB27 BB26 BB25 BB24 8825 BB22 BB21 8820 BBIF BBIE BB1D ВВІС ВВІВ ВВІА BBL? BIG BD17 BBÍó В815 BBIA BRIS BB12 DDil 8810 
12 BBOF BBOE BBOD BBOC BBOB BBOA BBO 3808 8807 BBO& RBCS BBO4 ВВОЗ 8802 ВВ01 BBOO BAFF BAFE BAFD BAFC BAFB BAFA BAF9 BAFS 
11 BAF7 BAF& BAFS ВАРА BAFS BAF2 BAFI BAFO BAEF BAEE BAED BAEC BAEB BAEA BAE9 BAEB BAE7 BAES BAES BAE4 BAES BAE2 BAE! BAEO 
10 BADF BADE BADD BADC BADB BADA BAD? BADB BAD7 BADS BADS BAD4 BAD BADZ BADI BADO ВАСЕ ВАСЕ ВАСО BACC BACB BACA BAC9 BAC8 

9 BAC7 BAC& BACS ВАСА BACS ВАС2 BAC! BACO BABF BABE BABD BABC BABB BABA BAB? BABE BAB7 BABA BABS BABA BABS BAB2 BAB! BABO 
8 ВААР BAAE BAAD BAAC BAAB BAAA BAA? BAAS ВАА7 BAAS BAAS BAAS BAAS ВАА? BAAL BAAO BA9F BAJE BA9D BASC BA9B ВАЗА BAT? RA9B 

7 BA97 BA96 BAS BATA BAYS BA92 BA! BA9O BASF BABE BASD BAGC BABB ВАВА BAS? BASG ВАВ7 BAG BABS BARS BA83 BA82 ВАВ! ВА80 
6 ВАТЕ. ВАТЕ BA7D BA7C BA7B ВАТА BA79 BA78 ВАТ] BA76 ВА75 ВАТА BA73 BA72 BA71 BA70 BAGF BAGE ВАБО BA6C BAGB BAGA BAG? BAGG 

У BAb7 BAG BABS BAGS BALI BA62 BAG! BAGO BASF BASE BASD BASC BASB BASA DAS? BASG 3457 BASE BASS BAS4 BASS BAS2 BASI BASO 

4 BASF BASE BA4D BA4C BA4B BA4A BA49 BAAG BAAT BA46 BASS BA44 BA43 BA43 BA41 BA40 BASF BASE BA3D BASC ВАЗВ ВАЗА BA39 BASS 

$ BAS7 ВАЗЫ BASS ВАЗА BASS BA32 ВАЗІ BASO BA2F BAZE BA2D BA2C BA2B BAZA BA29 BA28 BA27 BA26 BAZS BA24 BAS BA22 BA21 BA20 

2 BAIF BALE BAID BAIC BA1B BAIA BAL? BALS BA17 BALG BAIS BAL4 BALZ BA12 BALI BAO BAOF BAOE BAOD BAOC BAQB BAOA BAO? BAOB 

1 BA07 BA06 ВА05 BAO4 BAOS 3402 BAOL BAOO BIFF BIFE B9FD B9FC B9FB BIFA BOF? BOF B9F7 BSF& В9Е5 B9F4 BIFS B9F2 B9F1 BIFO 

б BYEF BYEE BIED BIEC BYEB BEA BIE? BIEB B9E7 BIEG BIES BYES BIES B9E2 BIEL B9EQ BODF BIDE BIOD В90С 8908 BIDA В909 8908 


240 


299 
300 
310 
320 
330 
340 
350 
399 
400 
410 
420 


MODE О 
PRINT CHRS (12) 
CURSOR 23,14:PRINT "Look out!" 


CURSOR 32,10:PRINT "Gios A" 

IF GETC=0 THEN 6 

POKE #75, 32 

P14=15. 0: P24=0. 0:N22=5. 0: N3Z=0. 0: AAAZ=0. 0: АА21=-1.0: ААЗУ=0.0 
A32=1.0: A22%=51. 0: AAL=0.0 

CO%=0. 0: C14=7. 0: C24=8.0:C34=13.0 

ENVELOPE 0 15,5;5,5; 

ENVELOPE 1 10,30;5,30; 

MODE 4A 


PRINT CHR$(12) 

CURSOR 23,3:PRINT "Look out !" [L (О) (О) [К< з со) [UJ 9 Г 
CURSOR 10,2: РВІМТ "Kaart" | | 
COLORG O O O O 

RESTDRE 

IF P2Z<86 GOTO 71 

FOR N1Z=0.0 TO 15.0:READ X17%,Y1%,X2%,Y2%:NEXT:AAZ%=0. 0 

IF P2%=86.0 THEN AASZ=AA3S%+1.02 IF AASZ=1.0 THEN P1Z=25.0:N2Z=N2Z+1.0 
FOR №17=0.0 TO 22.0:READ X1%,Y1%,X2%,Y2%:DRAW X1%,Y1% X2Z,Y2Z 22:NEXT 
CURSOR 10,1:PRINT P24+1.0 

FOR N%=1.0 TO N2X:CURSOR 42+4N442, 1: PRINT "X":NEXT 

FOR NiZ=0.0 TO 10.0 

NN1Z=INT (RND (43. 0) ) : NN2%=1 18. OF INT (RND (XMAX-118. 0) ) E NN3Z=87. O+INT (RND (104. 0—87 . 0) 
NN4Z=20. O+INT (RND (YMAX-20. 0) ) : NNSZ=INT (RND (XMAX) ) 

DOT NN17Z,NN4Z 22 

DOT NN2%,NN4% 22 

DOT NNSZ,NNSZ 22 

NEXT 

FOR N1Z-0.0 TO P1% 

X%=45. OF INT (RND (115. 0-45. 0) ) : Y4=20. O* INT (RND (84. 0-20. 0) ) 

DOT X%,Y% 22 | 

NEXT 

SOUND O O 15 O FREB(800.0):WAIT TIME 5 

COLORG COX C1% C2% C3% 

SOUND OFF 

DRAW 85,48 85,54 O:WAIT TIME 10 

DRAW 85,48 85,54 22:WAIT TIME 10 

IF GETC=0 GOTO 92 

NOISE 1 15 

А27=А2Ж+АА27 

ALZ=AS7%4+1.02 IF SCRN(A2Z,A1%Z)=C2% GOTO 1000 

DOT A2%,A1% СЗХ 

GZ=GETC: IF BZ>15.0 AND 67<20.0 THEN ON 67-15 GOTO 120, 200,300,399 
DOT A2%,A3% COZ 

ASZ=A1 LZ: AAZ=AAL+1.0 

GOTO 100 

A2%=A27+1.0 

AlZ-N3X4-1.0: IF SCRN(AZZ,A1%)=C2% БОТО 1000 

DOT A2%,A1% C3% 

GY=GETC: IF G4>15.0 AND GZ<20.0 THEN ON 67-15 GOTO 99, 220,299,400 
DOT A2%,A34 COX 

A3ZZ=A1L: AAL=AAL+1.0 

GOTO 200 

ASL-AS4-1.0 

A4%=A2%-1.0: IF SCRN(A4%,A3%)=C2% GOTO 1000 

DOT A4Z,A3Z C3X 

GZ=GETC: IF 64>15.0 AND 6Z<20.0 THEN ON GZ-15 GOTO 99,200,320, 400 
DOT A24,A3X COX | 
А27=А47: AAZ=AAL+1.0 

BÜTO 300 

A3Z=03SZ+1.0 

A47Z=02Z+1.O0:IF SCRN(A4%,A3%)=C2% GOTO 1000 

DOT A&%,A3% CIX 

GL=GETC: IF 64>15.0 AND 8Z«20.0 THEN ON 64-15 GOTO 99, 199, 300, 420 
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430 DOT А27, АЗА COX 

440 AZZ=AAL: AAZ=AAL+1.0 

450 GOTO 400 

1000 IF ñ2Z=84.0 AND A34248.0 AND A54254.0 GOTO 2000 
1010 NOISE O 15 I 

1020 WAIT TIME 30 

1030 SOUND OFF :AAAZ=AAAZ+AAL | 

1040 N2Z-N24-1.0: IF М2720.0 GOTO 10 

1050 GOTO 3000 

2000 PIZ=P14+5.0:P22=P274+1.0 

2010 SOUND OFF 

2020 FOR N17-1.0 TO P27 

2030 COLORG O O 14 O 

2040 SOUND 1 O 15 О FRE@(2000.0):WAIT TIME S:COLORG COX C1% C2% СЗУ 
Í| 2050 SOUND 1 O 15 2 FREQD(600.0):WAIT TIME 20 

l: 2060 NEXT:SOUND OFF :AAAZ=AAAZ+AAL 

2070 GOTO 10 

3000 PRINT CHR$(12) 





a 3010 MODE O:PRINT :PRINT :PRINT :PRINT :PRINT " LOOK OUT!" 
3 3020 PRINT :PRINT :PRINT " UW SCORE :";AAAZ;:PRINT " ";P2Z+1.0 
t 3030 IF AAAX>BBX THEN BBZ=AAA% 
3040 PRINT :PRINT :PRINT " De hoogste score”;BB% 
|| 3050 PRINT :PRINT :PRINT " VOOR EEN NIEW SPEL DRUK EEN TDETS" 
"S 3060 IF GETC=0.0 GOTO 3060 


3070 WAIT TIME 5 

3080 IF GETC=0 GOTO 3080 

3090 БОТО 9 

5000 DATA 45,20,45,84,45,84,115,84, 115,84, 115, 20, 115, 20,55, 20 
5010 DATA 55, 20,55, 74,55, 74, 105, 74, 105, 74, 105, 30, 105, 30, 65, 30 
5020 DATA 65,30, 65, 64,45, 64,95, 64, 95, 64, 95, 40, 95, 40, 75, 40 
5030 DATA 75, 40,75, 54,75, 54, 85, 54, 85, 54, 85, 48, 85, 48, 82, 48 
5040 DATA 45,20,25,0,45,84,25, 104, 115,84, 135, 104, 115, 20, 135,0 
5050 DATA 0,50,45,50,115,50,159,50,0,0, 159,0 

5050 DATA 45,20,45,94, 45,94, 115,84, 115,84, 115, 20, 115, 20,55, 20 
5070 DATA 55, 20,55, 74,65, 84, 65, 30, 75, 20, 75, 54, 75, 54, 105, 54 
5080 DATA 65,64, 95, 64,75, 74, 105, 74, 75, 40, 95, 40,82, 48, 85, 48 
5090 DATA 85,30, 105, 30, 85, 48, 85,54, 95, 40, 95, 47, 105, 30, 105, 74 





196 REM sax UPPER TO LOWER CASE : DEMO #33 
119 REM *** GESCHREVEN DOOR : DE BONT CORNEEL 3e3xdóàcxex* 
126 REM 334 (NAAR HET PROGRAMMA VAN J.BOERRIGTER Hatem 
139 REM +++ UIT NEWSLETTER 16 : PAGINA 174 ) ++ 
146 REM HF EEE ЗЕ ЗЕ ЗЕЗЕ ЗЕ REE EAE EE EEE ЗЕ EEE 
200 CLEAR 5600:PÜKE #298, #FF:POKE #29C,5:PRINT СНЕФ (12) 
218 FOR Х=#400 TO #43F: CURSOR 20,20:PRINT #43F-X3" "3 
220 READ A:POKE X,A:NEXT:PRINT CHR$(12); 
250 PRINT " ZIEHIER DATA IN UPFER CASE.":LIST 510-400 
246 CALLM #400 
250 PRINT " ZIEHIER GETRANSFORMEERDE DATA. ":LIST 316-400 

: 500 REM xxx UPPER TO LOWER CASE MLP 

| 510 DATA #F5, #C5, #05, HES, #28, HAL, 802, HEB, #24, 89F , #02, #02 
520 DATA #00, #CD, #14, HDE, #02, #3B, #04, HCA, HIB, #04, AE, #25 
330 DATA #23, #23, #7E, HFE, HA2, SCA, #26, #04, #2B, 2B, #09, #03 
349 DATA #00, #04, #23, HE, HOC, #25, НОП, HCA, HOD, #04, H7E, HCD 
350 DATA #02, #DE, #D2, #29, #04, HCG, 820, #77, #03, 829, 804, HEL 
368 DATA #D1,#C1, #F1, HCI, HOO, HOO, HOO, 400, HOG, 400, HOG, #00 
370 DATA DIT PROGRAMMA LAADT EEN KORTE MLP-ROUTINE IN RAM 
38e DATA BIJ EEN RUN ZAL DEZE ROUTINE ALLE KARAKTERS, AAN- 
390 DATA WEZIG IN DATA-LINES OMVORMEN VAN UPPER CASE NAAR 
400 DATA LOWER CASE.zie ter demo deze run.. 
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PRINT ROUTINES IN THE DAI 


The DAI has in its firmware several very useful routines for 
printing of strings and numbers. These routines can easily 
be used in your own machine language programs. 

This articles describes several of these print routines. For 
more information is referred to the "DAI firmware manual’. 


In the examples given, it is assumed that the string to be 
printed is in memory, and starts at address XXXX. 
AS an example, always the string "TEST" will be used. 


i. PRINT A STRING: 


1.1. This routine is at address #DE32. 
On entry, HL must contain the stringaddress. 


The format of the string must be as follows: 


— A length byte. 
~ The string in ASCII. 


Program example: 
XXXX 04 — 54.45.55.54 TEST" in ASCII) 


LXI Hy = XXXX Get stringaddr in HL 
CALL :DB32 Print "TEST" 


On exit, HL points after the string. All other 
registers are preserved. 


1.2. An alternative routine can be found on address #0644. 
On entry, HL points to the string. Its length must be 
in 6. 


Program example: 
XXXX 54.45.53.54 (TEST? in ASCII) 


LXI Н,:ХХХХ Get stringaddr in HL 
MVI ÀA,:04 Length in ñ 
CALL :DB44 Print "TEST? 


The exit conditions are identical to routine 1.1. 


2. PRINT A MESSAGE: 


2.1. This routine can be found on address #DAD4. It is a 
subroutine with additional possibilities. It can be 
used for printing of strings, which in itself, refer to 
other strings. 


On entry, HL must point to the string. On exit, HL 


points after the string. All other registers are 
preserved. ` 
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2.1.1. Format of a simple string: 


— String bytes in ASCII. All bytes must be between 
#01 and #7F. 
— 00 (end of string). 


Program example: 
XXXX 54.435.53.54 — OO TEST" in ASCII) 


LXI Hy = XXXX HL points to string 
CALL  :DADA Print "TEST" 


2.1.2. Format of a message with internal reference to 
other submessages: 


— The first byte must be >= #80. This indicates 
the presence of a subreference message. 

— If of this first byte, bit 14=1, then the lower 
bits 0-13 must be added to #COOO to find the 
address of the message. This message must again 
end with OO. 

— If bit 14 of the first byte is O, then the 
address found by adding bits 0-15 to HCOOO is 
the address of a string, consisting of a length 
byte + characters in ASCII. 


Program example: 


DDOA  8D.1B * LOAD’ 
DB.F3 7 ING” 
DC. 15 * ERROR?’ 
20 
об 


LXI H, :DDOñ Address message 
CALL  :DADA Print "LOADING ERROR’ 


SDiB: Bit 15=1: Subreference message. 
Bit 14-0: Points to string with address 
COOO + ODIE = CDIB: 
O4 — 4C.4F.41.44 ("LOAD"). 


DRFS: Bit 15-1: Subreference message. 
Bit 14-1: Points to message with address 
COOO + 1BF3 = DBF3: 
49.4E.47 — OO ("ING"). | 


DCi5: Hit 15-1: Subreference message. ' 
Bit 14-1: Points to message with address 
COOO + 1615 = DCIS: 
20.45.52.52.4F.52 — ОО {7 ERROR’). 


20 
оо 


Bit 15=0: Simple string byte. 
End of message. 


Several other examples can be found in the 
messages on the addresses #DBSF — #DD19. 


2.2. Another routine to print messages can be found on the 
address #DAFF. 
It print messages in exactly the same way as the 
routine on #DAD4, but the routine is "called" in a 
different way. 
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Program example: 


XXXX start of message (format see 2.1). 
CALL zDAFF Print message with address 
DBL EXXXX given as datablock. 


This datablock address is taken from stack, the stack— 
pointer is updated to after the datablock, and the 
message is printed. 

On exit, all registers are preserved. 


H 
tal 


. A special form of routine 2.2 can be found on address 
#CEE4. This one is used if an error occurs during 
working in a switched ROM-bank. 

Before printing the error message with routine 2.2, the 
ROM bank O is selected. 


3. SEVERAL USEFUL FRINT ROUTINES: 


3.1.1. #CES8: Print an expression, followed by a space. 
3.1.2. #CE6B: Print a space. 
3.1.3. #CE7O: Print a comma. 


3.1.4. #CE7S: Print a string between spaces. 
Before and after the string, a space is 
printed. 


Program example: CALL :CE7S 
DBL :XXXX 


3.1.5. #DBOD: Cursor to next field. To be used as "tab" 
to get cursor to the next field. The field 
positions are 0,12,24,36,48. 


5.1.6. #DB2A: Cursor to column 8. 
3.1.7. #DDSE: Print a carriage return. 


3.1.8. #DD60: Print a character, which is in A and in ASCII 
format. 


5.2. То be used only in BASIC with a CALLM-instruction: 


3.2.1. HOEFRD-HOEFEO: Several useful LIST routines. This 
routines can only be used if the m.l.routine 
is called from a BASIC program with CALLM, 
because they are in ROM bank O. 

The numbers to be printed must be in the 
math. accumulator. 


One program example: 


LXI H,:0010 700107 is decimal 16 

CALL :EB46 Number into MACC 

CALL :EFBD Convert MACC. from binary to ASCII 
and print result in decimals "16" 


336 DAInamic 84 - 24 | #DAI PRINTING ROUTINES* 


3.3. To be used only in programs running under the Utility 
PRS SS CL E Ser ss monitor (in RüM-bank 3): 


3.3.1. HED18: Print an double-byte number. The number must 
be in HL. 


5.5.2. #Ерір: Print a single-byte number, which is in A. 


3.3.3. #ED2F: Print a string. HL points to the string. The 
format is: ¿string bytes in ASCII? — oa. 


3.3.4. HEDSA: Print a carriage return. 





.3.. WEER4: Print a character. The character must be in 
register C and in ASCII-format. 


3.4. Routines for printing numbers, which are in the math. 
SSS ОЙ ка ийис a CC = accumulator: 


Т 3.4.1. #DB4A: Print a number in the MACC in hex format. 
3.4.2. #DBSS: Print a number in the MACC in integer format. 


3.4.5. #DBS9: Print a number in the MACC in floating point 





format. 
(C) — Jan Boerrigter — Aug. 1984 
| cont, from Р 330 
| (D.eqsic.3) EE 
BASIC. 3 2 TITL "HOME : HOME EXTENSION? 
т = 
3 ; 
| 4 ORG oH 
| 5 HOMROT D ан 
i & D * HOME? 
| 7 DB BBH 
i в DB @EEH 
1 9 DW RELTBL 
| 18 DB EE ./7— 
1 12 DB 4H 
12 D * HOME? 
13 DB Өс? 
14 ELOIO DK RHOME 
15 DB eH 
16 3 
17 RHOME MIA OCH 
18 RST 5 
Д DB 3H 
28 DRA A 
21 RET 
22 i 
23 RELTBL DW REL019 
24 DH өн 
2 “À 
26 END 
5 


p 
"т 
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NOP 
01 LXI B addr 


11 LXI D addr 























82 STAX B 12 STAX D 
03 INX B 13 INX D 
94 INR B 14 INR D 
05 DCR B 15 DCR D 
0 MVI B data | 16 MVI D data 
97 RLC 17 RAL 

ga --- 18 === 

09 DAD B 19 DAD D 
BA LDAX B {A LDAX D 
B DCX B 1B DCX D 
0С INR C iC INR E 
QD DCR C 1D DCR E 


UE MVI C data 
OF RRC 


MVI E data 











rr rn Р г РУ ге С а с с с Е С Е Е 


a - a BP a T c» = x c x < а 3 < ^" 


= = гг = m C c3 со т> =< p- = m = CIM 





= = — = rn = c ш p = r- = m t3 c W 


э э» ж < < зэ o < a =з a < a = се 


m m m m m rmm m rm юл Sau LE 


rır r = m = c m т> = го = m = c = 
=m = r- = rn t G rg p = үг = rn Z с ш 















RM 


F9 SPHL 
F2 JP addr FA JM addr 
F3 DI FB EI 


CM addr 


CPI data 
RST 7 
















































> жог = m n3 сэ t0 > = [^ = m кз G = 





=> > > > 1 > т> > = 
> => Z a a = =< < хм 


=> жү = rn tz со tg D 
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MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


SUB 










JPO addr 
XTHL 

CPO addr 
PUSH H 
ANI data 
RST 4 
RPE 
PCHL 
JPE addr 
XCHG 

CPE addr 














XRI data 
RST 





сэ €) сз ЕЗ сз єз С Сэ m CS nm tU co O3 ow 
m w ox o a €. «we = a = > X м = w с=т 
=> = r- = rn ко єз n > CX r- ID mn ыз C) US 


=> = r- = rm = C) tU bIr rman tU 












L 188 5 158 £ 158 g 885 g'3 AOW | 9°J ADN 


ТЕЛ 


7 di) 


LT 
и #85 KEN WU ADH Dn W*3 AN 
1 885 [vow | 1'9 AOW E 1'3 AO 
H 885 ТЛ HY pw | a a | H'3 AN 
3 885 zw | 3'# AOW BU] 3'3 ADH 
t gas En d'u AOH D 0*3 AO 
J 885 aw | 2'V ADN ЕП ШЕЙ 
8 885 | vw [ evi ei 8'3 AOW 
[ee [rm [erm [тө 
Cerf 
1 8n5 [om [suos rone T0 ADI 
n H'W ADH ET H'O AOW 
iw 3'N ADM EJ 3'0 AON 
m; a'W AOM EI q'a AUX 
J ans зан | заан [она 2*0 ADH 
8 ans аш | aw ACH ен | a'a AOW 








q Id) изми авми OT IAM [ азм | 42 IA 





ofaa 


qq TK) 1991 13 AOM 1 490 3 50 J 300 


qq 22 Н аи H'3 ADN Y UNI 1 UNI 3 UNI 


SHOX 3'3 AOK 95 x00 qa xd 


qq 3dr qq Of 0*2 ADH qq уат | 99 0191 10 8 1901 


effe 
SHBBBBBBHHHHBHD 


71945 Wad 138 ) Vi 2*2 AOW 45 avd a avd a avd 


8 di) g vui a‘ ADH 


LG) lille 


© — Сү m + L ON Су © T OQ LU Co Uu UL 


9 151 t 154 z 184 8 158 V Val V YNY Y'a ADW 115 Wy Ji 


WG ADN | GUIAMÉ aH IAN | чата | 9 8 IAN 


1 9980 1 YNY 1'# AON W 090 H 490 10 8 н 


99 47] 9904] qq IN) H'a AOW € UNI 


HIX d ino 3 ans 3'8 ADN 45 XNI 


жя 
са 


qq df} 90 Od? qq INL qq INE | d vuo a'a AUX qq vis ү 99 (198 110915] 4 AVIS 


Sd 404 1 404 8 dìd | JVD Fa Лои faq a5 IXTP 00 н IXI À 99 0 1х7 [0 8 Im 


INY 8 Y8 8 YNY a'a МОН 
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ЫННЕНЕНННЕННЕНННН 
SHBHBHHHBBHBHEBHBH 


SBBBBHBHBBH 


Q 
AMIBHBBBBRI 
 ЕННЕНИН 


ү 





SS BS INFORMATIQUE 








HELP 


Quel temps aujourd'hui ! Tu as entendu la météo ? ... «Soleil radieux sur la cóte ouest pour la 
journée» … 

Cela promet !, la mer est déjà noire de monde. Enfin... esperons que les coucous publicitaires 
ne nous poserons pas de probléme. 

Avec tous ces baigneurs, viléplanchistes, et autres bateaux de plaisance; je sens que les 
problémes ne vont pas tarder : «ILS» vont étre attirés comme des abeilles sur un pot de miel. 
Bon... je crois que le plein est fait: monttons dans l'helicoptére sauver ces bronzés des dents ` 
tranchantes des «SQAULES» 


HELP (S.O.S. HELI) 


Start your helicopter and fly above the sea to save the drowning persons. Get your heli in 
position and let down your ladder, they will climb on board... during your S.O.S.operations, 
look out for collision with other aircrafts and drop your bombs to kill the hungry sharks !! 
The more lifes you can save, the more points you score... but don't take too many persons on 
board, your cargo is limited ! 





